From a33cb02164a86f7a8f750c5254c209f38731c6b3 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Wed, 16 Jun 1993 21:33:18 +0000
Subject: [PATCH] (disassemble-internal): If function is autoload, load it.

---
 lisp/emacs-lisp/disass.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index b60ba5a2385..82933bd5d93 100644
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -79,6 +79,10 @@ redefine OBJECT if it is a symbol."
 	    obj (symbol-function obj)))
     (if (subrp obj)
 	(error "Can't disassemble #<subr %s>" name))
+    (if (and (listp obj) (eq (car obj) 'autoload))
+	(progn
+	  (load (nth 1 obj))
+	  (setq obj (symbol-function name))))
     (if (eq (car-safe obj) 'macro)	;handle macros
 	(setq macro t
 	      obj (cdr obj)))
-- 
2.30.2